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Preface 
Joseph D. Gradecki 


Welcome to the premier issue of PCVR. On a lowly evening in January of 1992, I was introduced 
to virtual reality by a couple of friends. They were all fired up about this state-of-the-art technology 
that they were becoming more aware of. They led me through the possibilities for this new technology. 
We imagined virtual reality galleries where men and women of ALE ages could explore any sport or 
activity that they wanted to. 


Power 

We talked about the kind of computing power that would be necessary to-_perform the kind of things 
that we want to do with virtual reality. The kind of power necessary. will make today's Connection 
Machines CMS look like a toy. We are talking about calculattons that easily exceed thousands of 
teraflops. A teraflop is one thousand times one billion floating point operations per second. fs this 
type of power possible? Yes it is. Someday. Just remember that the 386 or 486 machines sitting on 
your desk is thousands of times more powerful than mainframes some years.ago. 


Trees 

As I explained virtual reality to my wife, to get her interest, we talked about the modeling of our 
reality. I pointed to a pine tree that was swaying in the wind. Each part of that tree would have to be 
| modeled. Every pine needle. Every line in the bark and branches. With the graphic displays available 
to us today, we might be able to reproduce the tree to a good degree of accuracy. But now add the 
wind. Each of those pine needles and branches will sway in a particular manner described by the 
direction and intensity of the wind. Ok, we can probably do this as well. But not realtime. The 
machines today ( and possibly the minds ) would have a difficult time reproducing the reality of a 
swaying pine tree. 


Sex 

Going back to the conversation that my friends and I were having, they know that there was one 
way to get my attention. Sex and Money or Virtual Sex. Forget the April 1992 Issue of Playboy that 
talks about virtual sex. We are talking about something that 1s so powerful and dangerous that real 
consideration has to be put to it. A recent report said that phone sex is creating a $100 million dollar 
market each year. I tend to think its much higher. A newsprogram showed rapists being put through 
the humiliation of rape. Imagine the possibilities of virtual sex; excluding the enjoyment part. A 
therapist could put a convicted rapist into a virtual sex arena and have the rapist REALISTICALLY 
feel the pain and anger of rape. Researchers could monitor the actions of rapists and others when they 
rape or molest but they would be doing these things to a virtual person. And then there is the pleasure 
part. Just imagine taking a picture of a man or woman, the virtual sex people scanning the picture and 
creating the virtual person for you. Or you sitting down to a console and creating the perfect partner. 
Evil. Bad. Yes there are many dangers with virtual sex as there are with anything that rides the edge. 
But the benefits outweigh the dangers. 


a _ 


Drugs 

ae are a problem in our world. Could virtual reality be the ultimate drug war machine? Imagine 
the high that a person could experience with virtual reality. There would be no lasting effect to the 
body. Brain cells would not be damaged. Drunks wouldn't kill so often. Not everyone would like this 
use of drugs but many more would. It's a possibility. 


PCVR 

The purpose of PCVR is to gather information and ideas about virtual reality and the IBM personal 
computer. Most of us do not have free access to large and powerful machines. The Data Glove is too 
expensive as are the HMD's. But the PowerGlove and Sega 3D glasses are not. A D to A converter is 
cheap sound. A treadmill is not expensive. For experimenters in a new technology, we are set. PCVR 
will try to give you the information necessary to experiment with virtual reality at home on a personal 
computer. 

At the moment I am doing everything for this publication because of my desire to see virtual reality 
explode into the technology that I think it should. The PC is one way of helping the explosion. I do 
not pretend to know everything nor do I boast of never being wrong. I will do my best to test and 
research anything that is put into this publication. I believe an informative publication can be produced 
with your help. 

If you have a question write us. If you have a complaint or a correction write us. I plan to have a 
question and answer section as well as a letter to the editor section. I am always looking for those 
who wish to submit a few articles. It can be an idea article or an article that teaches. I am especially 


| interested in those articles that actually teach and don't just give the facts and then say ok, go do it. We 
| need steps in order to learn. So if you have a fast line drawing routine and you want to explain to us, 


write it up and send it in. Each publication will have several cornerstone articles. What's coming up in 
PCVR is documented below. If you have something to add send it to: 


PCVR 
1706 Sherman Hill Rd. #A 
Laramie, Wyoming 82070 or email at: 


gradecki@rodeo.uwyo.edu 


I would prefer ascii text files when emailing. For the format of submissions, refer to the last page of 
this issue. 


I sincerely hope that you get something out of this publication. Please participate. 


Joseph D. Gradecki 


Issue #2 - Creating a Better Virtual Hand 
A Virtual HandShake 
Issue #3 - Power Glove Hardware Interface 


Issue #4 - Sega 3D Glasses Interface and Code 


Interfacing the PowerGlove to the IBM PC 


Joseph D. Gradecki 


One of the first things that a virtual reality experimenter will want to do is interface the Nintendo 
PowerGlove to their PC. Much of the information for this interface can be found in the July 1990 Issue 
of Byte magazine and from various sites on Internet. What we want to do here is collect all of the 
information into a single source including software to access the glove. 


PowerGlove 

The PowerGlove is manufactured for the Nintendo game system. It allows a different type of user 
interface for the system other than the joystick. To the best of my knowledge, no additional games are 
being made for the glove and Mattel is discontinuing production. In order to obtain a glove, check 
your local toy store. We have found gloves at KMart and many different Toys R Us'. The price ranges 
from $20 to $50. 

The PowerGlove allows 4 degrees of freedom: x movement, y movement, z movement, and roll. 
The glove can register a grip or flat palm and a press of a keypad button. Each of the fingers ( and 
thumb ) has distinct values from flat to bend. The pinky finger does not have sensors. The sensors for 
gripping are not sensitive. The only usable values are 0x00 - 0x80 for a flat hand and OxFF for a full 
grip. : 

The roll of the glove registers values from +0 to +12. +0 is given when the glove is palm side down 
and horizontal. The +12 is the same position but a full rotation. The roll of the glove is not sensitive. 
When trying to register whether the glove is horizontal or vertical, typically a range of values needs to 
be used. For the Virtual Hand presented later in this issue, 0-2 is horizontal and >= 3 is vertical. 

For the x, y, and z axis, the values are relative from a center of 0,0,0. The values move in integer 
increments and decrements from 0. 


Requirements 
You will need the following in order to connect the PowerGlove to your PC: 


* PC, of course 

* PowerGlove 

* Extension Cable, not necessary but a good idea. 
* A bidirectional parallel port 


I have seen documentation on converting a directional parallel port into one that is bi-directional. 
Considering the price of parallel ports today, it would be easier and less time-consuming to purchase a 
parallel port card that is bi-directional. The problem with the documentation for the conversion is most 
parallel ports have different circuitry and you will probably make an adjustment that is not wise. So go 
buy a parallel port that is bi-directional. 

The extension cable is not a big deal but we will be hacking one end of the cable and the extension 
cable is insurance against a possible accident. Besides it gives a long cable. 


| Wire Functions 
| The first thing that we need to do is determine which of the wires in the cable are connected to the | 
end connector. If you are using the original connector, no extension cable, locate the box at the end of 
the triangle receivers. There should be a short cable coming out of the box. Cut the end of this cable | 
about 1/2 inch from the end connector. If you are using an extension cable, connect the end of the 
extension cable to the end connector coming out of the box. Cut the other end of the extension cable 
off. Strip back the insulation until about 1-1/2 inch of wire is exposed. Strip off the insulation from 
each of the wire until about 3/4 inch of wire is exposed. 


Connector 
The Nintendo connector looks with the follow and is numbered. 





The numbers will be referred to later in the interface. 


For the Original Cable 

Follow this thread if you are using the original cable. The wires should have colors black, orange, 
yellow, green, red and two others that we are not concerned with. Each of these colors refer to a 
particular number pin on the connector. The relationship 1s: 


1 - Ground - Black 
2 - Clock - Orange 
3 - Latch - Yellow 
4 - Out - Green 

5 - nothing 

6 - nothing 

7 -+5 Volts - Red 


If you are missing a color or the colors are wrong, we will need to do some detective work. Strip 
the insulation from the connector and wires from the connector that was cut off. Leave enough of the 
color insulation so that you will know which wire you are working with. Using a multimeter, touch | 
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a wire with a probe and then touch each of the pins in the end connector. Your multimeter should be 
set on resistance. When the needle or readout registers a value, the wire you are touching ( the color ) 
and the pin the other probe is touching are related. Write the color and pin number down. Do this for 
each of the colors. Once you are done, you will have a map of the relationship between the wires and 


the pins. 


Connection 
Next we have to wire the glove to the parallel port. For this part of the interface, you will want to 


use a DB-25 male connector. The easiest to use are the ones with the crimp pins, though any type will 
work. The wires will be connected to the connector as shown: 


Ground 
+5 Volts | 
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The relationship from the DB-25 connector to the Nintendo connector is: 


Pin2 to Pin2 
Pin3 to Pin3 
Pin 13 to Pin 4 
Pin 18 to Pin 1 


Pin 1 on the Nintendo connector is connected to ground and pin 7 is connected to +5 volts. 
Connect each of the wires to the DB-25. The next thing that has to be connected is the power. 


Power Connection 
There are basically three different ways that the power can be connected to the glove. 1) From the 
keyboard, 2) from an external source, 3) from an internal peripheral connector. There are reasons for 


| choosing each of the options. If you want to be able to move the glove from one computer to another, 


then the keyboard and external source are best. If you don't want to worry about having to have 
another receptacle available for the external source, then don't chose it. Whatever your choice, make 
sure that you use only +5 volts and that the ground is wired to pin | ( or the associated color ) and the 
+5 volts is wired to pin 7 ( or the associated color ). 

If you chose the keyboard, the pinouts are: 
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Using both a male and female keyboard connector, you can make a plug that allows the keyboard to 
be connected as well as the power for the glove. 


After you have the power connected, you are finished interfacing the glove. Skip to the section 
Glove Code. 


| Using an Extension Cable 

| If you are using an extension cable, you are going to have to figure out which wire corresponds to 

| which pin on the Nintendo connector. Using a multimeter, touch a wire with a probe and then touch 

| each of the pins in the end connector. Your multimeter should be set on resistance. When the needle 

| or readout registers a value, the wire you are touching (the color ) and the pin the other probe is 
touching are related. Write the color and pin number down. Do this for each of the colors. Once you 
| are done, you will have a map of the relationship between the wires and the pins. 

Now we are ready for the actual connection. Refer to the section CONNECTION above. 


Glove Code 

Once we have the glove interfaced to the PC, we need software to read and request data from the 
glove itself. I have been able to obtain two different pieces of interface code for the PC and the 
PowerGlove. I will reproduce this code here for those without access to Internet. To obtain this code 
on disk, see the last page of this issue. All of the code is basically the same but I will introduce the 
basics for each. I will not be going into the details of the timings necessary for strobing the glove. The 
first code is called IBMPC-HIRES and was obtained from karazm.math.uh.edu. 


IBMPC-HIRES 


This is includes a short main which is intended to give an idea of how to use the functions provided 
in the code. It begins my creating an array of length 12 called buf. 


unsigned char buf[ 12]; 
and a pointer to a structure glove data 


glove data *glov; 


The structure is declared as 


typedef struct glove_data 


{ | 
signed char dum0,x,y,z,rot,fingers,keys,dum7,dum8,dum9,dumA,dumB; 


} glove data; 
To relate the buffer and the pointer, the statement 
glov=(glove_data *)buf; 


is executed. The pointer glov now points to a buffer of length 12 and is ready to receive data. The 
system is now ready to be started. The function call Hires(); puts the PowerGlove into hires mode. 
This system is not interrupt driven. In order for the PC to receive data from the glove it must strobe 
the glove. To get data from the glove, the function getglove(buf) is called. Notice that the glov 
variable that we declared above is never used!, but anyway we can call this function anytime we want 
data from the glove. 


Because of the timings necessary, there is some experimentation that is needed in order to gain 
acceptable readings from the glove but the code does work as advertised. 


Glove 
This glove code was obtained from sunee. waterloo.edu and appears to be a comglomerate a 

| different authors from code that wasn't even for the PC or the parallel port. This code includes modes 

for both hires and lores as well as the ability to use interrupts. Functions have been put into the code to 
handle noise from the glove. There is no need to adjust dealy values because this is performed 
automatically. I have been told that the delay code above is somewhat better ( by 30%; their 
percentage ) than this code. Just relaying information. But this code is convenient and very easy to 
use. There is a glove data structure called glove data 


typedef struct glove data 
{ 

signed char x,y,z,rot,fingers, keys; 

unsigned int nmissed; /* number of samples missed */ 
} glove data; 


We first declare a variable of this type, say glov. Next, the appropriate receive mode is set with the 
glove_init function. The possible modes are: HIRES, IHIRES, LORES, ILORES. 


glove init (HIRES, NULL ); 
We are now ready to receive data from the glove. There are two ways to get data depending on the - 


mode set with the glove_init function. Both of the methods use the function glove read. This function 
is passed the glov variable declared above. , 


If interrupts are used during data reception, we do not have to wait for the glove to reset itself. If 
interrupts are not used, we must wait for the glove. 


| No Interrupts 


Before we can get data, we must ask the glove if it is ready to send data using the glove_ready() 
function. The function will return 0 for false and 1 for true. If the glove is not ready, we need to 
create a delay using the function glove delay(). A typicallly receive loop would be 


while ( !glove_ready() ) glove delay; 
glove_read ( &glov ); 


| We loop, creating a delay during each iteration, until the glove is ready to give us data. We read data 
| from the glove when the loop is exited. 


Interrupts 


If interrupts are enabled, we only have to execute the glove_read() function call. It will block until 
data is ready. 


When we are all finished with the glove, the function glove quit() should be executed to reset the 
| glove and possible interrupt settings. 


Test 

| Included with this code is two test programs: test and glovgraf. The test program displays the 
values that are continually sent to the PC until a key is pressed. It is a good program to execute once 

the glove has been interfaced to the PC. 


Glovgraf 

The glovgraf program displays a box on the graphics screen of the PC. The box moves left and 
right with the glove. When the user moves the glvoe in the Z direction, back and forward, the box 
grows larger and smaller. 


Used 

I use the GLOVE code exclusively in my Virtual Hand and Virtual HandShake programs that will 
be described later in this issue and the next. I find that not having to experiment with the timings to be 
quite nice. I move my glove from several different machines and have not had any problems with this 
code at all. 

There is apparently a move to update the glove code from one of the later authors. I won't say who 
or when this update is suppose to arrive but look for it. 

If you are aware of other public domain code for the PowerGlove and the IBM parallel port, please 
let me know. In a later issue, we will interface the glove to the serial port thus eliminating the need for 
the parallel port code. 
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Glove.H 


pperee® GLOVE DATA SPECIFICATIONS **0°eetens eee 


The glove_data array has been simplified. These are its functions: 


x= X position, 3mm per number 

y= _ Y position, 3mm per number 

z= distance, 14mm per number 

rot = wrist twist. 0 is up | is slightly CW, 5 is down, 11 1s shghtly CCW. 
About 30 to 40 degrees per count. 


Note: exact scaling of all above change with distance! Closer ts higher res. 


fingers = packed 2-bit values, 0 is open, 3 is (tight) fist: 
Bit format: TtliMmRr for Thumb, Index, Middle, and Ring fingers. 


keys: $FF or $80 is no key. Responds with 0 to 9 for keys "0" thn "9" 
$82 = START, $83 = SEL, $0A =A", $0B = "B", 0 is "Center” 
Up,down Jeft.right are $0D,$0E,$0C,$0F respectively. 


“y 


typedef struct glove_data { 
signed char x,y,z,rot,fingers,keys; 
unsigned int nmissed; /* number of samples missed */ 
} glove_data; 


/* prototypes */ 

void Hires (void); /* puts glove in hires mode */ 
void getglove (glove_data *); /* get data packet from glove */ 

int glove_ready(void); /* retums Oifnotready */ 
void glove_delay(void); 
int glove_init(int mode, void (*function)Q); /* returns actual mode used */ 

int glove_read(glove_data *glov); /* reads glove data, with de-ghitching */ 
void glove_quit(void), /* release the glove */ 


/* Modes passed to glove_init */ 


#define LORES 0 /* polled low-resolution */ 
#define HIRES | /* polled high-resolution */ 
#define ILORES 2 /* mterrupt-dnven low-resolution */ 
#define IHIRES 3 /* interrupt-dnven high-resolution */ 


/* End of glove.h */ 


Glove.C 
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Onginally "power.c" (c) manfredo 9/91 (manfredo@opal.cs.tu-berlin.de) 
Developed on an ATARI 1040ST with TC 1.1 using a logic analyzer to get 
the correct tumings. 
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ported to PC compatibles by 
Greg Alt 10/91 


galt@peruvian.utah.edu 
or galt@es.dsd.com 
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Substantially rewritten by Dave Stampe (c) 1991: PWRFILT.C 
No cash, no warranty, no flames. 
This stuff works great, so gimme credit. 


Goals <achieved> were: 


Higher speed, smaller code. 

Polled operation is now possible. 

Graphics test (VGA) 

Noise reduction added, gets nd of 99.5% of noise with NO DELAY! 


This runs on a 486/25 with an vo card. 

Someone should adapt it for the usual pnnter port adapter. 

It was compiled with Turbo C++ 2.0 but will probably 

work on any Turbo C directly. MSC will need library calls checked. 


/* delay required between polls */ 


dstamp(@watserv | .uwaterloo.ca 17/10/91 
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Re-converted to use pnnter port by Dave Stampe and Bere Roehl. 
October 18, 1991. 


I also split off Dave's graphics code into a separate file, and put some 
of the stuffthat was shared between the two into glove.h 


I also added a little judicious whitespace here and there to enhance 
readability, and made a whole bunch of globals static. 


I also added init_glove(mode) and glove_read(glov), the latter of which 
calls getglove(glov), deglitch(glov) and dehyst(glov). 


--Bernie, October 18-19 1991 
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/* More changes: 


init_glove(Q) now auto-calibrates. A new function (available outside 
of this module) called "udelay” delays for a certain number of micro- 
seconds. Calls to fdelay have been replaced by udelay(Q), 

and the D2BITS and D2BYTES values are now in microseconds. 


init_glove(Q now takes an additional parameter, a pointer to a 
function (currently unused). 


--Bernie Roehl, October 21 1991 
“ 
/* Interrupt-dnven operation is now implemented! Simply specify IHIRES 
(for interrupt-dnven high-resolution mode). 


Also, based on suggestions by Dave Stampe, I've: 
- put the calibration stuff into a separate routine 
- gone back to using counts instead of microseconds in most 
places (for performance reasons; it saves a MULT instruction), 
- udelay() is now gone, and a uconvert() macro does the conversion 
I have also: 
- renamed the functions so they all begin with "glove_"; they 
are now named glove_initQ, glove_readQ and glove_quitQ 


Many thanks to Dave for all his help, especially in finding some 
annonying timing problems. 


-- Bernie Roehl, November 8 1991 
m/ 


#include <stdio.h> 
#include <stdlib.h> 
#include <dos.h> 
#include <bios.h> 
#include <signal.h> 
#include "glove.h” 


#define PC_PRINTER 1 /* use the PC Pnnter port for i/o */ 


#define D2BITS 4 /* 
microseconds */ 
#define D2BYTES 96 [x 
microseconds */ 
#define SAMPLE_TIME 20 /* milliseconds */ 


#ifdef PC_PRINTER 
#define INPORT 0x379 /* i/o port addresses */ 


#define OUTPORT 0x378 

/* bits from parallel port */ 

#define GDATA 0x10 /* PG data in */ 
#define GLATCH 0x02 /* PG latch out */ 
#define GCLOCK 0x01 /* PG clock out */ 
#define GCLOLAT 0x03 /* clock + latch */ 
#define SHIFTVAL 4 /* shift data nght 4 bits */ 

#endif 


#ifdef DSTAMPE /* stuff from here down to #else is i/o card-specific */ 
#define INPORT 0x2A0 /* Vo port addresses */ 


#define OUTPORT 0x2A0 

/* bits for /o ports */ 

#define GDATA 0x01 /* PG data in */ 
#define GLATCH 0x02 /* PG latch out */ 
#define GCLOCK 0x01 /* PG clock out */ 
#define GCLOLAT 0x03 /* clock + latch */ 
#define SHIFTVAL 0 = /* don't shift */ 

#endif 


10 





static unsigned long bitdelay, bytedelay, longdelay, 
static void fdelay(unsigned long va {1 

while (val--); 

} 


static unsigned long microfactor = OL; /* usec/iteration times 91 */ 

#define uconvert(microseconds) (((microseconds) * microfactor)/91) 

void glove_delayQ : 
{ fdelay(longdelay); } 


/* defines for output line pair control */ 
#define COL0Q  outportb(OUTPORT, 0) /* clock 0 latch 0 */ 
#define COLIQ}  outportbh(OUTPORT, GLATCH) /* clock 0 latch 1 */ 
#define CILOQ  outportbh(OUTPORT, GCLOCK) /* clock | latch 0 */ 
#define CILIQ outportb(OUTPORT, GCLOLAT) /* clock | latch | */ 
static unsigned char getbyte() /* read a byte from glove <rolled code> */ 
register int 1; 
register unsigned char x = 0; 


C1LO0OQ; /* generate a reset (latch) pulse */ 
CILIQ; 

fdelay(bitdelay); /* hold for 3 us */ 

C1L00Q; 

fdelay(bitdelay), /* hold for 3 us */ 


for(i = 0; 1< 8; 1++) 


( 

X = (x << 1) + (inportb(INPORT) & GDATA) >> SHIFTVAL); 
COLO0Q; 

fdelay(bitdelay); 

C1LOQ; /* pulse */ 

fdelay(bitdelay); 

} 


return x; /* return the byte */ 
} 


void getglove(glove_data *buf) /* read 6 byte data packet */ 


register unsigned char *bp = (char *) buf; 
register int 1; 
for (1 = 0; 1 < 6; ++) { 
*bpt++ = getbyteQ; 
fdelay(bytedelay); 


/* read data */ 


j 
/* throwaways (speeds up polling later) */ 
getbyteQ; 
fdelay(bytedelay); 
getbyte(), 
} 


/* HIRES ENTRY CODES byte: 

1- any value between $05 and $31 

2- only $C1 and $81 work OK 

3- no effect 

4- no effect 

5- no effect 

6- only $FF works 

7- seems to affect read rate slightly, | fastest 
mae 


static int hires_code[7] = { 0x06, 0xC1, 0x08, 0x00, 0x02, OxFF, 0x01 }; 
void Hires() /* enter HIRES mode <rolled code- speed unimportant> */ 
( 
int i,j,k; 
/* dummy read 4 bits from glove: */ 
CILOQ; CIL1Q; /* generate a reset (latch) pulse */ 


fdelay(bitdelay); /* delay for 6 us */ 
fdelay(bitdelay), 

CILOQ; é 
fdelay(bitdelay),; /* delay for 6 us */ 
fdelay(bitdelay), 

COL0Q; CILO0Q; /* pulse clock */ 
fdelay(bitdelay),; 

COL0Q; C1L0Q; /* pulse clock */ 
fdelay(bitdelay); 

COL0Q; CILOQ;, /* pulse clock */ 
fdelay(bitdelay), 


COL0Q; CILOQ; /* pulse clock */ 

/* handshake for command code? */ 
CILOO; 
fdelay(uconvert(7212)); /* 7212 us delay */ 
CILIO; 
fdelay(uconvert(2260)), /* 2260 us delay */ 


for (= 0.1< 7,1++) /* send 7 bytes */ 


( 
k=hires_code[i]; 
for (j =0;j)<8;,)++) /* 8 bits per byte, MSB first */ 


{ 
if (k & 0x80) 


{ 

C1L00; 
COLO0Q; 
C1ILOQ; 


} 
k <<= 1; 
fdelay(bitdelay); 


} 
fdelay(bytedelay), 
) 


fdelay(uconvert(892)),; /* 892 us delay (end of 7. byte) */ 


C1L0Q; /* drop the reset line */ 
fdelay(uconvert(40000)); /* some time for the glove controller to relax */ 


#define XHYST 2 

#define YHYST 2 

static int ox = -1000,; 

static int oy = -1000; 

static void dehyst(glove_data *g) 
removal) */ 


/* hysterisis for X, Y low noise reduction */ 
/* last x,y for hysterisis */ 
/* hysterisis deglitch (low noise 


{ 
int X = g->x; 
int y = g->y; 


if(g->keys—=0) ox = oy =0; /* handle recentering ("0"key or "Center”) */ 


if(x-ox>XH YST) ox = x-XHYST; 
if(ox-x>XHYST) ox = x+XHYST; 
if(y-oy>YHYST) oy = y-YHYST; 
if(oy-y>YHYST) oy = y+ YHYST; 
B->X = OX; 
— = DY> 


/* X hystensis */ 
/* Y hystenisis */ 


/* replace present X,Y data */ 


#define XACC 8 
#define YACC 8 
#define XXTEND 1 
#define YXTEND | 
static int x] = 0; 
static int yl = 0; 
static int x2 = 0; 
static int y2 = 0; 
static int Ix = 0; 
static int ly = 0; 
static int lax = 0; 
static int lay = 0; 
static int Isx = 0; 
static int Isy = 0; 
static int Iex = 0; 
static int Icy = 0; 
static void deglitch(glove_ data *g) 
( 


/* X, Y maximum accel/decel level. Should */ 
/* b6-10, but too high limits gestunng */ 
/* stretches deghtching time */ 


/* delayed 2 samples */ 

/* last good X,Y speed */ 

/* bad data stretch” counter */ 

/* X,Y "hold" values to replace bad data */ 


/* last X,Y speed for accel. calc. */ 


int VX, Vy, 

int X = g->x; 

int y = g->y; 

if{g->keys == 0) 
{ 
xl =x2=yl =y2 =0; 
lx = ly = lax = lay = 0; 
Isx = Isy = Icx = Icy = 0; 
} 


/* reset on recentenng ("0" or "Center" key) */ 


VX = X-((X14+X2)>~1): 
vy = y-((yl+y2)> +1); 


/* smoothed velocity *: 


R= XE; /* update last values */ 
X] = p->x, 





/* 2 eliminates +/-3 quanta of noise */ 


/* delayed | sample (for smoothed velocity test) */ 





y=¥i; 
yl =g->y, 


if (abs(Iex-vx) > XACC) lax = XXTEND; _/* check for extreme acceleration */ 
if (lax == 0) lx = vx; /* save only good velocity ws 
Icx = vx; /* save velocity for next accel. */ 


if (abs(Icy-vy) > YACC) lay = YXTEND, = /* same deal for Y accel. */ 
if lay == 0) ly = vy; 


Icy = vy; 
if (lax != 0) /* hold X pos'n if glitch */ 
{ 
g->x = Isx; lax--; 
} 
if (lay '!= 0) /* hold Y pos'n if glitch */ 
{ 
g->y = Isy, lay--; 
} 
Isx = g->x; /* save position for X,Y hold */ 
Isy = g->y, 


static void calibrateQ) 
( 
unsigned long n; 
/* calibrate timing loop; note that instead of dividing by 18.2, 
we multiply by 5 now and divide by 91 later */ 
n= biostime(0, OL); 
fdelay(1000000); /* divide by a milllion to get microfactor */ 
microfactor = (biostime(0, OL) - n) * 5; 
bitdelay = uconvert(D2BITS); 
bytedelay = uconvert(D2BYTES), 
longdelay = uconvert(4000); 


} 


/* operating mode of glove */ 

/* user's function to call up to */ 
/* non-zero if we're interrupt-dnven */ 
/* our copy of the most recent data */ 


static int glovemode = HIRES; 
static void (*upcall)Q = NULL; 
static unsigned char uses_ints = 0; 
static glove_data glove_int_data; 


/* Following is the number of our ticks per real tick, rounded up */ 
#define DIVISOR ((S5+SAMPLE_TIME/2)/SAMPLE_TIME) 


#define UNUSED_VECT 128 /* unused 
interrupt vector (we hope!) */ 


static void interrupt (*oldint8)Q = NULL; _—‘/* previous interrupt handler */ 
static void interrupt (*oldunused)(Q) = NULL; /* previous unused vector */ 


static unsigned n_ints = 0; /* number of interrupts since oldint8 called */ 
static unsigned unready = 0; /* number of times glove has been not ready */ 


/* samples of X values */ 
/* samples of X values after deghitching */ 


static char samples[7500], 
static char dsamples[7500]; 
static int nsamples = 0; 


static void interrupt int80 
disableQ); 


if (getbyte() != OxA0) { 
if (++unready > $00) { 


reset it */ 
unready = 0; 
if (glovemode = IHIRES) 
HiresQ; 
} 
else { /* data ready! */ 
fdelay(bytedelay),; 


unready = 0; 

getglove(&glove_int_ data); 

deghitch(&glove_int_data), /* remove spikes and jumps */ 
dehyst(&glove int_data); /* add hysteresis to remove LL noise */ 
++glove_int_data.nmissed, /* flag data as new */ 


uf (upeall) (*upcall)O: /* upcall to application */ 
) 
if (++n_ints >= DIVISOR) { /* call previous int 8 handler penodically */ 
n_ints = 0; 
geninterrupt(UNUSED_VECT) ) 
else 
outportb(0x20, 0x20); /* signal EOI */ 


/* glove not responding... 





/* timer control register */ 
/* tumert zero data register “/ 
/* byte to wnte to control register */ 


#define TIMER_CONTROL 0x43 
#define TIMER_0 0x40 
#define TIMER_MODE 0x36 


int glove_imut(int mode, void (*function)(Q) 


{ 
calibrate(); 
if (mode == LORES) mode = HIRES; 
if (mode == ILORES) mode = IHIRES; 
if (mode = HIRES || mode == ITHIRES) Hires; 
glove_int_data.nmissed = 0; /* go this one, start counter again! */ 
if (mode = ILORES || mode == IHIRES) { /* an interrupt mode */ 
void glove_quit0; 
unsigned rate; 
uses_ints = 1; 
oldint8 = getvect(8); 
oldunused = getvect(UNUSED_VECT), 
setvect(UNUSED_VECT, oldint8); 
setvect(8, int8); 
rate = 65535/DIVISOR; 
/* reprogram timer */ 
disableQ; 
outportb(TIMER_CONTROL, TIMER_MODE), /* tumer 
control port */ 
outportb(TIMER_0, rate & OxFF); 
/* low byte to timer zero */ 
outportb(TIMER_0, (rate >> 8) & OxFF),  /* high byte to timer zero 
*/ 
/* make sure we clean up at exit or on errors */ 
atexit(glove_quit); 
signal(SIGABRT, glove_quit); 
signal(SIGFPE, glove_quit); 
signal(SIGINT, glove_quit); 
enableQ); 
} 
else 
uses_ints = 0; 
glovemode = mode; 
upcall = function; 
retum glovemode, /* returns mode actually set */ 
} 


int glove_read(glove_data *glov) 

{ 

if (uses_ints) {/* interrupt-driven */ 
disableQ; 
*glov = glove_int_data; 
glove_int_data.nmissed = 0; 
enable(); 
return glov->nmissed; 


/* polled operation */ 


getglove(glov); /* retrieve the data */ 
deglitch(glov); /* remove spikes and jumps */ 
dehyst(glov); /* add hysteresis to remove LL noise */ 
glove_int_data = *glov; 
return 1; /* always new data */ 
} 
int glove_ready() /* retums 1 if glove ready, 0 otherwise */ 
if (uses_ints) /* interrupt handler makes sure there's always data */ 
retum 1; 
if (getbyteQ == 0xA0) { /* ready */ 
unready = 0, 
if (upcall) (*upcall)O; 
retum 1; 


/* not ready */ 
if (++unready > 500) { /* glove not responding... reset it */ 


unready = 0; 
if (glovemode == HIRES || glovemode = IHIRES) 
Hires(Q); 

) 

retum 0; 

} 

void glove_quit) { 

if (uses_mts) { 

disableQ), 


/* reprogram timer */ 
outportb(TIMER_CONTROL, TIMER_MODE), 
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outportb(TIMER_ 9, 0); /* low byte */ 
outportb(TIMER_0, ©); /* high byte */ 
setvect(8, cldint8); 
setvect((UNUSED_VECT, oldunused), 
signal(SIGABRT, SIG_DFL), 
signal(SIGFPE, SIG_DFL),; 
signal(SIGINT, SIG_DFL); 
enable(); 


5 


} 
upeall = NULL; 


Test.C 


#include <stdio.h> 
#include "glove.h" 

























void main() 
{ 
glove_data glov,; 
glove _imit(IHIRES, NULL); 
pnntf("\n\n"); 
while(!kbhit() 
if (glove _ready() { 
glove_read(&glov); 
pnntf("%+4d %+4d %+4d %+4d %02.2K %02.2X \r", 
glov.x, glov.y, glov.z, glov.rot, 
glov.fingers & OxFF, glov.keys & 


a 
J 


glove_delayQ; 

































getchQ; 
glove_quitQ); 
} 


Glovgraf.C 


/* Graphics-mode demonstration code for PowerGlove */ 


/* Wnitten by Dave Stampe, Modified by Bernie Roehl, October 1991 */ 





#include <dos.h> 
#include <bios.h> 
#include <stdio.h> 
#include <conio.h> 
#include <graphics.h> 
#include "glove.h" 









int gdnver = DETECT; 
int gmode = VGAHI, 


/* for graphics plot and cursor */ 






void main() 
{ 
glove_data glov,; /* glove data */ 
void drawthing(), drawpQ; 





initgraph(&gdnver, &gmode, ””), 
if (graphresultQ) < 0) { 
printf("could not initialize graphics\n"); 
exit(1); 
} 
cleardevice(); 
glove mit(IHIRES, NULL); 
while(!kbhit()) 
if (glove_ready()) { 
if (glove_read(&glov)) 
drawthing(&glov), 
/* animate glove cursor */ 
} 
else 
glove_delay(). : 
getchQ; /* exit when keyboard hit */ 
glove quit(), . ous 
closegraph(), 
} 


static void drawit(glove_data *g) /* draw/erase box cursor */ 


( | 3 | 
int x = 320+2*(g->x); : /* compute. X,Y center */ 
int y = 240-2*(g->y); —— | 
int z = 30+(g->z); /* size prop. to Z */ 


Tec tangle(x-z,y “-Z,X+ Zy+ 2); 
} 


static glove data oldbuf, /* used to store old state for drawing */ 


static int drawn = 0; /* set if cursor to be erased */ 
void drawthing(glove_data *g) /* draw square cursor */ 
{ 
if (g->keys = 2) return, /* hold down "2" to stop drawing */ 
if{drawn) /* erase old box */ 
{ 
setcolor(0); 
drawit(&oldbuf), 
} 
setcolor(1 5); /* draw new box */ 
drawit(g); 
drawn = 1; 
oldbuf = *g, 
} 
static int xx = 0; /* plot position */ 


void drawp(giove_data*g) /* plot X,Y data to test smoothing */ 
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{ 
if(g->keys==4) /* restart at left edge if'"4” pressed */ 
{ 
cleardevice(); 
xx=0; 


> 
, 


3 


setcolor(0); 

line(xx,0,xx,479); 

hine(xx+1,0,xx+ 1,479), 

setcolor(15),; 

line(xx,240-2*g->x,xx+ 1,240-2*g->x), 
setcolor(14); 
line(xx+1,240-2*g->y,xx+2,240-2*g->y), 
om ae 

XXt+: 

if(xx > 639) xx = 0; 

} 











IBMPC-HIRES: 


[RERPEREEREEEREEARE EERE ES ELLE EL ELERA EEE ES SEELEY EES SES EM 





power.c (c) manfredo 9/91 enjoy "HiRes” mode 
manfredo@opal.cs.tu-berlin.de 
This program is without any WARRANTY use at your OWN nsk 
The code is very ugly, but it was the only way to get speed 
on this poor hardware in C. It was developed on an ATARI 
1040ST with TC 1.1 using a logic analyzer to get the correct timings. 









Datapacket: (12 bytes) 










2 2 & S& & 2. eB WT - 16 









AO X Y Z rot finger keys 00 00 3F FF FF 
ported to PC compatibles by 
Greg Alt 10/91 








galt@peruvian.utah.edu 
or galt@es.dsd.com 







I made the code a little less "ugly". Also, the constants N & D 
should be tweeked to fit your system. A 4/21 works for my 386/25, 
a 1/7 worked for an Atari ST. It should probably be in the range 
1/10-1/2. Keep tweeking it until the output matches the above 
format and isn't very jittery... 
I compiled this successfully with Turbo C 2.0... 
To connect the glove to your PC, look at the July 1990 issue of 
BYTE magazine. 
BEOOIOIOI ICO IOI ICICI I IC IOI ICICI I a I IOI I ICI ICICI aCe 3 aft aie ak akc a ak ake ae ake RCC IC e340 aie aie aK a ai ke 28 2 24 2 / 
#define N 4 /* Tweek this value */ 
#define D) 2 
#include <stdio.h> 


















/* bits from parallel port */ 

#define GDATA 0x10 /* PG data in */ 
#define GLATCH 0x02 /* PG latch out */ 
#define GCLOCK 0x01 /* PG clock out */ 






#define GCLOLAT 0x03 /* clock + latch */ 














/* Delay tuming */ 
#define delay(val) {register unsigned long 1=N*(int)(val/D);for(j-->0;);} 







#define D2BYTES 192 /* delay between 2 bytes 96 us */ 
#define D2BITS 21 /* delay between2 bits 22 us */ 
#define D2SLOW 32000 /* 4slow bytes in packet 14720 us */ 











#define COLOQ  outportb(0x378, 0) /* clock 0 latch 0 */ 
#define COLIQ  outportb(0x378, GLATCH) /* clock 0 latch | */ 
#define CILOQ — outportb(0x378, GCLOCK) /* clock | latch 0 */ 
#define CILIQ  outportb(0x378, GCLOLAT) /* clock 1 latch 1 */ 









#define readbit(x) rd=inportb(0x379), rd&=GDATA, x=x<<1; xt=rd>>4; 
unsigned char getbyte (void); 









void Hires (void); 
void getglove (unsigned char *); 






typedef struct glove data 











signed char dum0,x,y,z,rot,fingers,keys,dum7,dum8,dum9,dumA,dumB, 
} glove_data; 







void main () 


( 






unsigned char buf[12]; 
glove_data *glov; 










glov=(glove_data *)buf, 
Hires (); /* set PG into ‘hires’ mode */ 
while(1) 

{ 







getghove(buf), /* read 12 byte packets */ 


pnintf("Glove %-2x %-2x %-2x %-2x %-2x %-2x ", 
buf[0},buf] !],buf[2},buf[3}, buf] 4], buf] 5), 

pnntf{ "%-2x %-2x %-2x %-2x %-2x %-2x\n", 
buf[6],buf[7], buf]8], buff 9}, buf] 10),buf] 1 1]); 


void getglove(buf) - /* read 12 byte packets */ 
unsigned char *buf,; 


( 
register unsigned char *bp; 


bp = buf, 

*bptt = getbyte (); 
delay (D2BYTES); 
*bp++ = getbyte 0); 
delay (D2BYTES); 
*bp++ = getbyte (); 
delay (D2BYTES), 
*bp++ = getbyte 0; 
delay (D2BYTES); 
*bp++ = getbyte 0); 
delay (D2BYTES), 
*bpt+ = getbyte (); 
delay (D2BYTES); 
*bp++ = getbyte 0; 
delay (D2BYTES), 
*bpt++ = getbyte (); 
delay (D2SLOW), 
*bp++ = getbyte 0); 
delay (D2SLOW), 
*bpt++ = getbyte 0; 
delay (D2SLOW),; 
*bp++ = getbyte 0; 
delay (D2SLOW), 
*bpt++ = getbyte 0; 
delay (D2SLOW), 


unsigned char getbyte 0 


{ register unsigned char rd register int 1; 


register unsigned char Glov = 0; 


/* generate a reset (latch) pulse */ 

C1L00; 
CHA: 
for (i= 1; 1-- > 0; ); /* 5 us delay */ 
CILO G; readbit(Glov), 
COLO Q; CILO Q; /* pulse */ 
COLO 0; C1LO (; /* pulse */ 
COLO Q; CILO Q; /* pulse */ 
COLO Q; C1L0 Q; /* pulse */ 
COLO 0; CILO Q; /* pulse */ 
COLO Q; CILO Q; /* pulse */ 
COLO Q; C1L0 (0; /* pulse */ 
COLO Q; C1L0 Q; /* pulse */ 
retum Glov; /* return the byte */ 

} 


void Hires () 

{ register unsigned char rd; 
register unsigned char Glov = 0; 
register int 1; 


/* read 4 bits from glove */ 


/* generate a reset (latch) pulse */ 

Cie; 

CiLi Gg: 

for (i= 1; 1-->0;); /* 5 us delay */ 
CILO QO; 

readbit(Glov), 

COLO 0; CILO®, /* pulse clock */ 
readbit(Glov); 

COLO 0; C1L0Q; /* pulse clock */ 
readbit(Glov), 

COLO Q;CILOQ; /* pulse clock */ 
readbit(Glov); 

COLO Q; CILOQ; _/* pulse clock */ 
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readbit(Glov); 
readbit(Glov); 
readbit(Glov); 
readbit(Glov); 
readbit(Glov); 
readbit(Glov); 
readbit(Glov); 


/* end of read 4 bits */ 


CILO 0); 


delay (16950), /* 7212 us delay */ 


Cit ©; 


delay (4750), /* 2260 us delay */ 


C1LOQ; 
COLO 0); 
COLO 0; 
COLO 0; 
COLO O; 
COLO O; 
CIL10; 
COLI QO; 
CILOQ; 


CILIO; 
COLI Q; 
COLI 0; 
LIL: 
COLO (0; 
COLO QO; 
COLO 0); 
COLO 0; 
CILIG: 


CILO Q; 
COLO 0); 
COLO (); 
COLO 0; 
COLO Q; 
CLI 0; 
C1LO 0; 
COLO 0); 
COLO 0; 


COLO QO; 
COLO (0; 
COLO QO; 
COLO 0; 
COLO Q; 
COLO 0; 
COLO (0; 
COLO 0; 


COLO QO; 
COLO 0; 
COLO QO; 
COLO 0; 
COLO 0; 
COLO O; 
Clit; 
CILO OQ; 


CIL1 0; 
COL! 0; 
COLI 0: 
COL1 0; 
COLI 0; 
COLI 0; 
COLI Q; 
COLI 0; 
COLI 0; 


CILO0; 
COLO Q); 
COLO 0; 
COLO 0; 
COLO (), 
COLO 0; 
COLO 0; 
COLO Q, 
CILIO; 


CILOO; 


/* Start of 1. Byte */ 


CILO QO; delay (D2BITS), 
CILOQ; delay (D2BITS), 
CILOO; delay (D2BITS); 
CiL0 QO; delay (D2BITS),; 
CILO 0; delay (D2BITS), 
COLI OQ; CILIO; delay (D2BITS), 
CILI 0; delay (D2BITS); 
COLO OQ; CIEOGR delay (D2BYTES); 
/* Start of 2. Byte */ 
ith O; delay (D2BITS); 
Cita Of delay (D2BITS); 
COLO 0; CILO 0: delay (D2BITS), 
C1LO QO; delay (D2BITS); 
CILO Q; delay (D2BITS); 
C1LO QO; delay (D2BITS); 
CILDQ: delay (D2BITS), 
COLI 0; CILI Q; delay (D2BYTES), 
/* Start of 3. Byte */ 
CILO Q; delay (D2BITS), 
CILOO: delay (D2BiTS), 
CILOD; delay (D2BITS); 
CIELO 0; delay (D2BITS),; 
COLI 0; CILI GQ; delay (D2BITS),; 
COLO 0; C1ILO OQ; delay (D2BITS), 
C1ILO Q; delay (D2BITS); 
C1LO0 Q; delay (D2BYTES), 
/* start of 4. byte */ 
CILO 0; delay (D2BITS), 
CILO 0; delay (D2BITS); 
CILO OQ; delay (D2BITS),; 
CILO0; delay (D2BITS), 
CILO Q, delay (D2BITS), 
CILO OQ; delay (D2BITS), 
C1L00; delay (D2BITS), 
CILO 0; delay (D2BYTES), 
/* start of 5. byte */ 
C1LO Q; delay (D2BITS), 
CILO QO; delay (D2BITS); 
CILO 0, delay (D2BITS); 
C1LO 0, delay (D2BITS), 
C1LO QO; delay (D2BITS); 
C1LO0 Q; delay (D2BITS); 
COLI Q; CiLd delay (D2BITS); 
COLO 0; CILOD: delay (D2BYTES); 
/* start of 6. byte */ 
CIL1 QO; delay (D2BITS), 
CiLs G; delay (D2BITS); 
CILLA: delay (D2BITS), 
CiL] 4 delay (D2BITS),; 
Clhd O; delay (D2BITS), 
CEL) delay (D2BITS), 
CILI QO; delay (D2BITS), 
CILI 0; delay (D2BYTES), 
/* start of 7. byte */ 
CILOQ; delay {D2BITS), 
C1ILO 0; delay (D2BiITS), 
C1LO QO; delay (D2BITS), 
ILO: delay (D2BITS), 
CILOD: delay (D2BITS), 
CILO 0: delay (D2BITS), 
CILO QO; delay (D2BITS), 
COLI OQ; Crht 0 delay (1090), 


/* 892 us delay (end of 7. byte) */ 


delay (60000), /* some time for the glove controller to relax */ 
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Creating A Virtual Hand 


Joseph D. Gradecki 


If you are like myself, I interfaced the PowerGlove (PG) to the PC and then said 'Ok. Now what?" 
There is no code out in netland except for the box and test code that actually makes the glove do 
something. In order to get things rolling a bit, there needs to be some software that utilizes the 
PowerGlove in a somewhat meaningful manner. My first project towards this goal is a virtual hand. 

While I'd like to say that this program's representation of a human hand is excellent, I cannot. Due 
to the limitations of the PC and my lack of 3D graphics programming ( which is growing after this 
program ), the graphics to reproduce the hand is crude but effective. The hand could have been 
created better than the simple hand used in this program and in fact, a later issue of PC VR will present 
the better hand, but I wanted to make sure that the movement of the virtual hand was realtime. When 
| the user moved the PG up, the virtual hand should move up as fast as the PG. This is true for each of 
the axis movements x, y, z and roll and grip. 

Because of the crude grip values that the glove registers, the virtual hand has two grip positions, 
open and closed. I could not receive reliable intermediate values for the grip therefore I don't include 
these motions. 


Graphics 

In order to create the virtual hand, several functions and structures were created to handle the 3D 
graphics. Each of the functions and structures will be documented here so that others can use them. 
The basics of 3D graphics will not be explained in this issue. Look to a future issue for these or get a 
book on the subject from your local library. 

The first structure details what a point is 


struct point 


. 
int x yz 
int oldx, oldy, oldz; 
int ax, ay; 
struct point *next; 
ib 


The programmer is concerned with the fields x, y, z and next. The other fields are used by other 
functions in the system for bookkeeping purposes. X, y, and z are the 3D coordinates of the point. 
Next is a pointer to the next point in a possible linked list of points. 

The next structure called polygon uses the point structure above to form the vertices of a polygon. 
A polygon can have any number of points. The points should be attached to the polygon is the order 
that they are to be drawn. Notice that a polygon can consist of two or more points. 

















struct polygon 


{ 
struct point *points; 
struct polygon *next; 
int color; 
int line; 

is 


If the polygon is a line, the field line should be set to 1 otherwise set to 0. The color field is not 
used at this time. The field point is a linked list of points used as described above. Next is a pointer to 
additional polygons. A single polygon can be constructed from more than one polygon if so desired. 


Once we have polygons, we can form objects. The structure object is used for that purpose. 


struct object 

{ 
struct polygon *polygons; 
int number; 


}; 


An object is just a linked list of polygons. Whenever this object is drawn or erased, the system will 
move down the list drawing all of the polygons that it encounters. The number field is used to record 
the number of polygons that make up this object. 

The last major structure is matrix 


struct matrix 


{ 
int m[4][4]; 


3 


Each matrix used in the system for transformations or other uses is declared as structure matrix. 
Each of the matrix locations are integers. Using these structures we can create any form necessary ina 
3D world. 


The functions included in the code are 


void identity ( struct matrix * ) : this function takes a matrix and initializes it to the 4 dimensional 
identity matrix. There is no return value. 


void create view _transformation() : this function creates global values that are used when 
projecting an object on the graphics screen. The values use globally defined constants rho, theta, and 
phi. | | 








These constants have been defined so that the x axis 1s along the horizon of the screen, the y axis is 
along the left vertical side of the screen and the z axis extends in the negative direction into the screen 
from the bottom left hand corner of the screen. 

struct object * create object () : this function creates an object ( allocates memory ) and returns a 
pointer to the object. 


void release _object ( struct object *obj ) : this function releases all memory that the passed object has 
been allocated. 


struct polygon * add_polygon ( struct object *obj, int line ) : this function adds a polygon to the 
specified object. The polygon is added to the end of the linked list of polygons for this object. Ifthe 
polygon is a line, line should be set to 1 otherwise 0. 


void add_ vertex ( struct polygon *p, int x, int y, int z) : this function addes a vertex to the polygon p 
| with the coordinates x, y, and z. 


void proj ( struct point *p, int *sx, int *sy, struct matrix *mat ) : this function transforms a point p, 
using matrix mat and the global transformation values onto the 2D graphics screen. The resulting x 
and y coordinates are put into the memory locations pointed to by the integer pointers sx and sy. This 
| function has to be called for EVERY point to be plotted on the graphics screen. 


| void draw_ object ( struct object *obj, struct matrix *mat, int color ) : this function draws the object 
| obj using the matrix mat and the color color. Since we are only using wireframe drawings, the color is 
the color of the lines that make up the object. 


void erase_object ( struct object *obj ) : this function erases the object obj using prerecorded values 
for each point. 


struct matrix * object_scale ( struct matrix *mat, float scale ) : this function scales an object equally 
| on all three coordinates by the scaling value scale using the matrix mat. This scaling is applied to the 
matrix and not to the object directly. 


struct matrix * object_xrot ( struct matrix *mat, float deg ) : this function rotates the object about the 
x axis by the number of degrees deg. This rotation is applied to the matrix mat and not to the object 
direcly. A pointer 1s returned to the new matrix. 


struct matrix * object_yrot ( struct matrix *mat, float deg ) : this function rotates the object about the 
y axis by the number of degrees deg. This rotation is applied to the matrix mat and not to the object 
direcly. A pointer is returned to the new matrix. 


struct matrix * object_zrot ( struct matrix *mat, float deg ) : this function rotates:the object about the 
z axis by the number of degrees deg. This rotation is applied to the matrix mat and not to the object 
direcly. A pointer is returned to the new matrix. | 


struct matrix * object translate ( struct matrix *mat, int transx, int transy, int transz ) : this function 
translates the object by the values transx, transy, and transz. The translation is applied to the matrix 
mat and not the object directly. 


Virtual Hand 

My idea for the virtual hand was to create a realistic hand that would exactly mimic the movements 
of the PowerGlove. After some realization of my own, I had to make a tradeoff between the realism 
and the realtime movements. I choice the realtime movements. With this in mind, the virtual hand is 
very simple. It consists of a box for a palm and four stick fingers; there is no thumb. 

Using the routines from above, this virtual hand will mimic the movements of the PowerGlove in 
realtime. The image is quite realistic in that the hand will grow smaller and larger when the glove is 
moved in the Z direction. 

One of the more important functions that the glove performs is the grip. The virtual hand will grip 
just as the PG does. There is no intermediate movement for the grip because of the lack of sensitivity 
in the fingers. 


Graphics Representation 

In order to represent a three dimensional space on a two dimensional screen, several 
transformations must take place. The x axis of the space 1s positioned at the bottom of the graphics 
screen with 0 at the left corner. The y axis of the space is positioned at the vertical left of the graphics 
screen with 0 at the lower left corner. The z axis of the space is positioned into the screen starting at 
the lower left corner. The z values decrement in a negative direction as you move more into the 
screen. 

The glove is given a starting location of off-center to the right and in the horizontal position. It 
assumes that this is 0,0,0 for the glove. Three variables are used to remember the previous position of 
the glove; glovex, glovey, and glovez. When a movement is returned from the glove, the values read 
are compared to the previous location of the glove. If the values are different, the absolute value of the 
difference of the glove is calculated. This value is the amount the virtual hand should be move 
according to the values from the glove. These values are multiplied by a incrementing value to give a 
more realistic movement of the virtual hand on the screen. All three values will be applied to the 
current transformation matrices of the hand. 

The glove is checked for roll, grip and if the A button has been pressed ( to stop the program ). If 
any of these things have happened, the transformation matrices will be updated accordingly. The grip 
is a different case. In this version of the virtual hand (a first attempt ), the actual point values for the 
fingers are changed instead of the transformation matrices. This tries to solve a positioning problem 
with the glove when the fingers are bend. ( Really not solved until the second version; next issue ). 

After all of this has taken place, the glove is erased and drawn again. Since we are working in the 
VGA screen 640 x 480, there is only one video page and there 1s a flicker. Future versions of the 
virtual hand and other programs will use the 320 x 240 video mode with page flipping. 

These functions are performed in a loop until the A button on the PG is pressed. In the next issue, 
the hand will be expanded to a full three dimensional hand and will still retain its realtime nature. 


Try it out. The code for the Virtual Hand 1s available at Karazm.math.uh.edu in the VR/source 
directory. The second version of the Hand is also available at this site as well. | | 











#include <stdio.h> 
#include <stdlib.h> 
#include <graphics.h> 
#include <math.h> 
#include <conio.h> 
#include <dos.h> 
#include "glove.h” 


#define to_radians 0.017453292 
#define rho 5000 

#define theta 90.0 

#define phi 180.0 

#define screendist 1000.0 


int screen_x = 640, 
screen_y = 480, 


int screen_x2 = 320; 
int screen_y2 = 240; 


int va,vb,ve,vf,vg,vi,vj,vk,v1; 


/* This is a basic point on the 3D screen */ 


struct point 
{ . 
int x, Vey 
int oldx, oldy, oldz; 
int ax, ay; 
struct point *next, 
ys 


/* This structure defines the four points that make up the polygon 


for the palm of the hand */ 
struct polygon 
( 


struct point *points; 
struct polygon *next; 


int color; 
int line; 
i 
struct object 
( 
struct polygon “polygons; 
int number; 
ie 
struct matnx 
{ 
int m/[4]{4], 
if 


void identity ( struct matnx *m ) 


{ 

int i; 

for (=0;1<4;1++ ) 
{ 

for Q=0j<4,++) 
m->m[i][j] = 0.0; 

} 

m->m{0][0] = 1.0; 
m->mf{1][1] = 1.0; 
m->m{2][2] = 1.0; 
m->m{3][3] = 1.0; 


return (m ); 





void create_view_transformation() 


{ 


float sintheta, costheta, sinphi, cosphi; 


sintheta = sin(theta*to_ radians), 
costheta = cos(theta*to_radians), 
sinphi = sin(phi*to_radians); 
cosphi = cos(phi*to_ radians), 


va = -sintheta; 

vb = costheta; 

ve = -costheta*cosphi; 
vf = -sintheta*cosphi, 
vg = sinphi; 

vi = -costheta*sinphi,; 
Vj = -sintheta*sinphi, 
vk = -cosphi; 

vl = rho; 


) 


struct object * create_objectQ 


{ 
struct object *obj; 
obj = (struct object *)malloc(sizeof (struct object)); 
obj->polygons = NULL; 
obj->number = 0; 


retum (ob)); 


} 


| void release_object ( struct object *obj ) 


{ 
struct polygon *p; 
struct point *d; 


if ( obj->number > 0 ) 
{ 
while ( obj->polygons != NULL ) 
{ 
p = obj->polygons, 
obj->polygons = obj->polygons->next; 
while ( p->points '= NULL ) 


( 
d= p->points; 
p->points = p->points->next; 
free (d); 
} 
free (p); 
} 
} 
free (obj); 


void proj ( struct point *p, int *sx, int *sy, struct matrix *mat ) 


int xt, yt, zt, 
xe, ye, Zé, 
XW, YW, ZW, 


/* Apply current global Matnx (mat) */ 
xt = p->x*mat->m[0][0] + 
p->y*mat->m{1][0] + 
p->z*mat->m[2][0] + 
mat->rn[3][0}; 


yt = p->x*mat->m[0][1] + 
p->y*mat->m[1][1] + 
p->z*mat->m[2][1] + 

mat->m[3][1]; 


zt = p->x*mat->m[0][2] + 
p->y*mat->m[1]{2] + 
p->z*mat->m[2][{2] + 

mat->m[3]{2}; 


20 


xXw = xt, 
yw = 9, 
Zw = zt, 


/* Translate to view */ 

xe = va*xw, Pty, i 
ye=/"ve"xwi+vi* */ yw, = /*+ vg"zw, */ 
ze = /* vi*xw + vj*yw + vk* */ zw + vi; 





/* Translate to perpective view */ 
*sx = screendist * xe / Ze; 
*sy = screendist * ye / ze, 


) 


void draw_ object ( struct object *obj, struct matnx “mat, int color ) 


{ 


struct polygon “p, 
struct point *d; 
int &, y, ¥2, v2, “sx, *sy, "Sx2, *sy2, Svx, svy; 


' setcolor ( color ); 
SX = &X; 
sy = &y; 
Sx2 = &x?2; 
sy2 = &y2; 


p = obj->polygons; 
while ( p != NULL ) 
( 


d = p->points; 

proj (d, sx, sy, mat ); 

SVX = d->ax = X; /* Save actual points for erase */ 
svy = d->ay = y; 

d= d->next; 


while (d != NULL ) 


{ 
proj(d, sx2, sy2, mat ); 
d->ax = x2; /* Save actual points for erase */ 
d->ay = y2; 
line (screen_x2-x, screen_y2-y, screen_x2- x2, screen_y?2 - y2 ); 
d= d->next; 
X= x2; 
yz; 
} 
if ( p->line = 0 ) 
{ 
line ( screen_x2-x, screen_y2-y, screen_X2-svx, screen_y2-svy ); 
) 
p = p->next, 
) 


struct polygon * add_polygon ( struct object *obj, int line ) 


struct polygon “p; 


p = (struct polygon *)malloc(sizeof(struct polygon)); 
p->next = NULL; 

p->points = NULL; 

p->hne = line; 


if ( obj->polygons == NULL ) 
{ 


obj->polygons = p; 

) 

else 

( 
p->next = obj->polygons, 
obj->polygons = p; 

} 


obj->number++, 
retum (p ), 
) 


void erase - ‘:jcut{ struct object *oby ) 


{ 


sitet nolygon “p. 
struct pomi “d, 
int SVX, SVY, X, Y; 


setcolor ( BLACK ); 

p = obj->polygons; 

while ( p '!= NULL ) 
f 


d = p->points; 
X = Svx = d->ax; 
y = svy = d->ay,; 
d= d->next; 
while (d != NULL ) 
{ 
line ( screen_x2-x, screen_y2-y, screen_x2-d->ax, screen_y2-d->ay ); 
xX = d->ax; 
y = d->ay; 
d= d->next; 


} 
if ( p->line = 0 ) 
{ 


line ( screen_x2-x, screen_y2-y, screen_x2-svx, screen_y2-svy ); 


} 
p = p->next,; 


void add_vertex ( struct polygon *p, int x, int y, int z) 
struct point *d, *temp; 


temp = p->points,; 
if (temp != NULL ) 
{ 


while ( temp->next != NULL ) 
{ temp = temp->next, } 


d = (struct point *)malloc(sizeof{struct point)); 
d->x = x; 

d->y = y, 

d->z =z; 

d->oldx = x; 

d->oldy = y; 

d->oldz = z; 

d->next = NULL, 


if ( p->points == NULL ) 
( 
p->points = d; 


else 
{ 
temp->next = d, 
} 
) 


struct object * make_hand_obyect ( stnict object *hand ) 
{ 


stnict polygon *p; 

hand = create_object(); 

p = add_ polygon ( hand,0 ), 
add_ vertex ( p, 400,0,1000 ), 
add_vertex ( p, 400,400,1000 ); 


add_vertex ( p, 400,400,300 ), 
add_ vertex { p, 400,0,300 ), 


Tetum ( hand ), 


struct matrix * object_translate ( struct matnx *mat, int transx, int transy, int transz ) 
{ 

struct matnx *b, “c; 

b = (struct matrix *)malloc(sizeof{struct matnix)), 


struct object * make_finger]_object (struct object *f) 
( 









struct polygon *p; 
















‘identity (b ); 
b->m{3]}[{0] = transx,; 
b->m[3]{1] = transy,; 
b->m[3]{2] = transz; 

c = matnxmult ( mat, b ); 
free ( mat ); 

free (b), 


f= create_object0; 


p =add_polygon ( £1 ); 

add_vertex ( p, 400,400, 1000 ); 
add_vertex ( p, 400,400,1300 ); 
add_vertex ( p, 400,400,1500 ); 
add_vertex ( p, 400,400,1600 ); 
return ( f); return (c ); 
) 


struct object * make_finger2_object ( struct object *f) 
{ struct polygon *p; 

struct matrix * object_scale ( struct matnx *mat, float scale ) 
{ 

struct matrix *b, *c; 

b = (struct matnx *)malloc(sizeof(struct matnx)); 


f=create_object0); 


p =add_polygon ( f1 ); 

add_vertex ( p, 400,240,1000 ); 
add_vertex ( p, 400,240,1300 ); 
add_vertex ( p, 400,240,1500 ); 
add_vertex ( p, 400,240,1600 ); 













identity (b ); 
b->m[0][0] *= scale; 
b->m[1][1] *= scale; 
b->m[2][2] *= scale; 


return ( f); c = matnxmult ( mat, b ); 
} free ( mat ); 
free(b), 
struct object * make_finger3_ object ( struct object *f) 
{ return (c ); 


struct polygon *p; 


f= create_object(); 

p =add_polygon ( £1 ); 
add_vertex ( p, 400,120,1000 ); 
add_vertex ( p, 400,120,1300 ); 
add_vertex ( p, 400,120,1500 ); 
add_vertex ( p, 400,120,1600 ); 


struct matnix * object_xrot ( struct matrix *mat, float deg ) 









float thecos, thesin; 
struct matnix *b, *c; 


thecos = cos ( deg*to_radians ); 
thesin = sin ( deg*to_radians ); 
b = (struct matnx *)malloc(sizeof(struct matnix)),; 


return ( f); 


) 















identity (b ); 
b->m{[1]}[1] = thecos; 
b->m[1][2] = thesin; 
b->m[2}[1] = -thesin; 
b->m[2][2] = thecos, 

c = matnxmult ( mat, b ); 
free ( mat ); 

free (b ); 


struct object * make_finger4_object ( struct object *f) 


{ 
struct polygon *p; 


f= create_objectQ; 

p = add_polygon (f,1); 
add_vertex ( p, 400,0,1000 ); 
add_vertex ( p, 400,0,1300 ); 
add_vertex ( p, 400,0,1500 ); 
add_vertex ( p, 400,0,1600 ); 


return (c ); 









return ( f); 
struct matnx * object_yrot ( struct matrix “mat, float deg ) 
} 
float thecos, thesin; 

struct matrix * matnxmult ( struct matrix “a, struct matnx *b ) struct matnx *b, *c; 
{ 

int i, j, k; thecos = cos ( deg*to_radians ); 

int t; thesin = sin ( deg*to_radians ); 


struct matrix *c; b = (struct matnx *)malloc(sizeof{struct matrix)); 












c = (struct matnx *)malloc(sizeof(struct matnx)); identity (b ); 
b->m[0]{0] = thecos; 


for (i=0;1<4;1++) b->m[0][2] = -thesin; 


{ b->m[2][0]} = thesin; 

for G=0j<4j++) b->m[2]}{2] = thecos; 

{ ¢ = matnxmult ( mat,b ); 
t= 0.0; free ( mat ); 

for (k=0;k<4;k++) free (b ); 
( 


t=t+ a->m[i}[k] * b->m[k]f[j]; retum (¢ ), 





c->mf[i][j) = t: 


} 


return (c ); 





ne 3 RAR DN EER CNET DR SNRAREIELEERIIDUE NAAR ANCHO AS HN TEERRR CRORE MAA AA TEES ASS SHEN A E> 


struct matnix * object_zrot ( struct matnx “mat, float deg ) 


float thecos, thesin; 
struct matnx *b, *c; 


thecos = cos ( deg*to_radians ); 
thesin = sin ( deg*to_ radians ); 
b = (struct matnx *)malloc(sizeoffstruct matnx)), 


identity ( b ); 

b->m[0][0] = thecos; 
b->m{0]{1] = thesin,; 
b->m{1][{0] = -thesin; 
b->m[1][1] = thecos; 

c = matnxmult ( mat, b ); 
free ( mat ); 

free (b ); 


retum (c ); 


} 


void change_finger_jomt_one ( float deg, struct point *d ) 
{ int x, y, Z, ox, oy, oz, i; , 

float thesin, thecos; 

struct matnx *m, “n, *o, *old; 

struct point *e, 


n = (struct matnx *)malloc(sizeof(struct matrix)), 
o = (struct matrix *)malloc(sizeof(struct matnx)); 


n= identity (n ); 
0 = identity (0 ); 


thecos = cos ( deg * to_radians }; 
thesin = sin ( deg * to_radians }; 


/* set up rotation matrix */ 


o->m[0][0] = thecos; 
o->m{2][0] = thesin,; 

o->m{0][2] = -thesin; 
o->m[{2][2] = thecos; 


ox = d->oldx; 
oy = d->oldy; 
oz = d->oldz, 


n->m{3](0] = -ox; 
n->m({3][1] = -oy; 
n->m{3]{2] = -oz; 

m = matrixmult (n, 0 ); /* multiply these */ 
e=d, 

d = d->next; 
n->m{3]}[0] = e->x; 
n->m(3][1] = e->y; 
n->m[3}[2] = e->z; 


/* Previous point translation back */ 


old = m; 

m = matrixmult ( old, n ); /* Final matnx */ 
free ( old ); 

Ox = d->x; 

oy = d->y, 

oz = d->z,; 


x = d->x * m->m[0}[0] + 
d->y * m->mf{}][0] + 
d->z * m->m[2}[0] + 
m->m[3}[Gl: 


y = d->x * m->m([O][ 1] + 
d->y * m->m[1}[1] + 
d->z * m->m{[2]{1] + 
m->m{3)[1]; 


z= d->x * m->m[0]{2] + 
d->y * m->m{1}{2] + 
d->z * m->m{2][2] + 
m->m{3][2], 


d->oldx:= d->x; 
d->oldy = d->y, 
d->oldz = d->z, 


/* setup translation matrix to ongin */ 


d->x = x; 
d->y = y, 
d->z =z; 


free (n); 
free (0 ); 
free (m ); 


void main(Q) 


( 


char ch; 
int change=0, close = 0, good = 0; 
int graphmode, graphdriver, 1, x, y, Z, 
glovex=0, glovey=0, glovez=0, gloveroll=0; 
struct object *hand, 
*fingerl, 
*finger?2, 
*finger3, 
*finger4; 
struct matnix “hand_matnx, 
*fingerl_ matrix, 
*finger2_matnix, 
*finger3_matnix, 
*finger4_ matrix; 


glove_data glov, 


giove_init ( HIRES, NULL ); 
printf ("Exercise the glove and then Press any key!!\n" ); 
getch0; 


graphmode = VGAHI, 

graphdriver = VGA; 

initgraph ( &graphdnver, &graphmode, ”" ); 
setbkcolor ( BLACK ); 

cleardeviceQ); 


hand _matnx = (stnict matnx *)malloc(sizeof{struct matnx)), 
finger! matnx = (struct matnx *)malloc(sizeof(struct matnx)), 
finger2_ matrix = (struct matnx *)malloc(sizeof{struct matrix)), 
finger3_ matnx = (struct matrix *)malloc(sizeof{struct matrix)); 
finger4_matnx = (struct matnx *)malloc(sizeof{struct matrix)), 


identity(hand_matnx), 

identity(finger!_ matrix), 
identity(finger2_ matrix), 
identity(finger3_ matnx), 
identity(finger4 matrix); 


create_view_transformation(); 


hand =make_hand_ object (hand ), 

fingeri = make_finger! object ( finger! ); 
finger2 = make_finger2_object ( finger? ), 
finger3 = make_finger3_object ( finger3 ); 
finger4 = make_finger4 object ( finger4 ), 


x = hand->polygons->points->x; 
y = hand->polygons->points- >y; 
z = hand->polygons->points- >z, 


hand_matnx = object_translate ( hand _matnx, -x, -y, -z ), 
hand_matnx ~ object zrot (hand matnx, 90 ), 
hand_matnx = object_translate ( hand_matnx, x, y, Z ); 
finger! matnx = object_translate ( finger] matnx, -x, ~y, -z ), 
finger! matnx = object_zrot ( finger! matnx, 90 ); 

finger] matnx = object_translate ( finger] _matnx, x, y, z ), 
finger2_ matnx = obyect_translate ( finger2_ metnix, -x, -y, -z ), 
finger2_matnx = object_zrot ( finger2_ matnx, 90 ), 
finger2_matnx = object_translate ( finger2_matnx, x, y, Z }, 
finger3_matnx = object_translate ( finger3_ matnx, -x, -y, -2 ). 
finger3_matnx = object zrot ( finger3_ matnx, 90 ), 


finger3_ matnx = object translate ( finger3 matrix, x,y. 2), 
finger4 matrix = object translate ( finger mratnx, -x, -y, -2 ), 
finger4 matnx = object zrot ( finger matnx, 90 ), 

fingert matnx © object translate ¢ finger} matnx, x,y. 7), 


draw_object ( hand, hand_matnix, RED ),; 

draw_ object ( finger!, finger!_matnx, RED ), 
draw_object ( finger3, finger3_matrix, RED ); 
draw_object ( finger4, finger4_ matrix, RED ), 


if (((glov fingers & Oxff) > 0x80 ) && ( close == 0 )) 
{ 


=-90, y=180, z= 90; 


ch 


while ( ch !='q') 


{ 


while (!glove_ready() glove_delayQ; 
glove_read(&glov); 


X 


=y=z=0; 


if ( glov.x != glovex ) 


) 


change = 2; 
if (glov.x > glovex ) 

x = abs(glov.x-glovex) * 25, 
else 

x = abs(glov.x-glovex) * -25, 
glovex = glov.x,; 


if (glov.y !=glovey ) 


) 


change = 2; 
if (glov.y > glovey ) 

y = abs(glov.y-glovey) * 25; 
else 

y = abs(glov.y-glovey) * -25; 
glovey = glov.y; 


if (glov.z!=glovez) { 


change = 2; 
if ( glov.z > glovez ) 

z= abs(glov.z-glovez)-* -200; 
else 

z= abs(glov.z-glovez) * 200; 
glovez = glov.z; 


if(change==2) { 


hand_matrix = object_translate ( hand_miatnix, x,y,z ); 

finger! matrix = object_translate ( finger!_miatrix, x,y,z ); 
finger2_ matrix = object_translate ( finger2_matnix, x,y,z ); 
finger3_matnx = object_translate ( finger3_matnx, x,y,z ); 
finger4_matrix = object_translate ( finger4_matnix, x,y,z ); 


if (change = 2 ) 


erase_object ( hand ); 
erase_object ( finger! ); 
erase_ object ( finger? ); 
erase_object ( finger3 ), 
erase_object ( finger4 ); 
change = 1; 


) 


if ((glov.keys & Oxf} <=0xA0) { ch='q’; } 


if ((glov.fingers & Oxff) <= 0x80) && ( close = 1) ) 


{ 


x= -270; 
y= 180; 
z= 270, 


change_finger_joint_one (x, fingerl->polygons->points ); 
change_finger_joint_one ( y, fingerl->polygons->points->next ); 
change_finger_joint_one ( z, finger!->polygons->points->next->next ); 


change_finger_joint_one (x, finger2->polygons->points _); 
change_finger_joint_one (y, finger2->polygons->points->next ); 
change_finger_joint_one (z, finger2->polygons->points->next->next ); 


change_finger_joint_one (x, finger3->polygons->points ); 
change_finger_joint_one ( y, finger3->polygons->points->next ); 
change_finger_joint_one ( z, finger3->polygons->points->next->next ); 


change_finger joint_one (x, finger4->polygons->points ); 
change_finger_joint_one ( y, finger4->polygons->points->next ); 
change_finger_joint_one ( z, finger4->polygons->points->next->next ), 
close=0;, } 


change_finger_joint_one (x, fingeri->polygons->pomts ), 
change_finger_joint_one ( y, finger!->polygons->points->next ); 
change _finger_joint_one ( z, finger] ->polygons->points->next->next ); 
change_finger_joint_one ( x, finger2->polygons->points ), 
change_finger_joint_one ( y, finger2->polygons->potnts->next ); 
change_finger_joint_one (z, finger2->polygons->points->next->next ); 
change_finger_joint_one (x, finger3->polygons->points ); 
change_finger_joint_one ( y, finger3->polygons->points->next ); 
change_finger_joint_one ( z, finger3->polygons->points->next->next ); 
change_finger_joint_one (x, finger4->polygons->points ); 
change_finger_joint_one ( y, finger4->polygons->points->next ); 
change_finger_joint_one (z, finger4->polygons->points->next->next ); 
close = |; 


} 
if (( glov.rot >= 3) && (glov.rot <=10 ) && ( gloveroll = 0)) 
{ 


x = hand->polygons->points->x; 
y = hand->polygons->points->y, 
z = hand->polygons->points->z, 


hand_matnx = object_translate ( hand_matnix, -x, -y, -z ); 
hand_matnix = object_zrot ( hand_matnx, -90 ); 
hand_matnx = object_translate ( hand_matnx, x, y, z ); 
fingerl_miatrix = object_translate ( finger!_miatrix, -x, -y, -z ); 
finger! matrix = object_zrot ( finger!_matnix, -90 ); 
finger] _matnix = object_translate ( fingerl_ matrix, x, y, z ); 
finger2_matrix = object_translate ( finger2_ matrix, -x, -y, -z ); 
finger2_matnx = object_zrot ( finger2_matnix, -90 ); 
finger2_matnix = object_translate ( finger2_ matrix, x, y, Z ); 
finger3_matnx = object_translate ( finger3_ matrix, -x, -y, -z ); 
finger3_ matrix = object_zrot ( finger3_ matrix, -90 ); 
finger3_ matrix = object_translate ( finger3_ matrix, x, y, z ); 
finger4 matrix = object_translate ( finger4_matnix, -x, -y, -z ); 
finger4_matrix = object_zrot ( finger4_ matrix, -90 ); 
finger4 matrix = object_translate ( finger4_matnix, x, y, z ); 
gloveroll = |; 

} 

if (glov.rot<2) && ( gloveroll=—=1)) { 
gloveroll = 0; 
x = hand->polygons->points->x, 
y = hand->polygons->points->y,; 
z = hand->polygons->points->z; 


hand_matrix = object_translate ( hand_matnx, -x, -y, -z ); 
hand_matnix = object_zrot (hand_matnix, 90 ), 

hand_matnx = object_translate ( hand_matrix, x, y, z), 
finger! matrix = object_translate ( finger] _miatrix, -x, -y, -z ); 
finger! matrix = object_zrot ( finger]_matrix, 90 ); 
fingerl_miatrix = object_translate ( fingerl_matnx, x, y, z); 
finger2_ matrix = object_translate ( finger2_ matrix, -x, -y, -z ); 
finger2_ matrix = object_zrot ( finger2_ matrix, 90 ); 
finger2_matrix = object_translate ( finger2_ matrix, x, y, z); 
finger3_ matrix = object_translate ( finger3_ matrix, -x, -y, -Z ); 
finger3_matnix = object_zrot ( finger3_ matrix, 90 ), 

finger3_ matrix = object_translate ( finger3_ matrix, x, y, z ); 
finger4_ matrix = object_translate ( finger4_ matrix, -x, -y, -z ); 
finger4_matrix = object_zrot ( finger4_matrix, 90); 
finger4_matrix = object_translate ( finger4_ matrix, x, y, z ); 


} 
if (change = 1 ) 
draw_object ( hand, hand_matrix, RED ), 
draw_object ( finger1, fingerl]_matnx, RED ); 
draw_object ( finger?2, finger2_ matrix, RED ), 
draw_ object ( finger3, finger3_ matrix, RED ); 
draw_object ( finger4, finger4_matnix, RED ); 
change = 0; 
)} 
telease_object ( hand ), release_object ( finger] ); 
telease_object ( finger2 ), release_object ( finger3 ), 
release_object ( finger4 ); 
free ( hand_matnix ); 
free ( finger!_matnix ), 
free ( finger2_ matnx ), 
free ( finger3_matnix ); 
free ( finger4_matnix ), 
closegraphQ); glove_quit(); 
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3D Graphic Code 


Joseph D. Gradecki 


3D computer graphics are fundamental to any VR system. In the case of the IBM PC, there 1s not 
much choice when one looks at the public domain market. Sure we could probably purchase an 
expensive graphics package but most researchers using a PC for VR work don't have the monies 
available. The purpose of this article is to explore three packages that are available for 3D computer 
graphics. The first is REND386 by Dave Stampe from the University of Waterloo Canada. This 
package is currently being enhanced by Mr. Stampe. 

This package was developed from speed. In order to gain the most speed possible, several things 
were compromised. The system works with the 320 x 200 x 16 graphics screen. This is presently the 
only screen that can be used. At first glance that may seem bad but remember we are using a limited 
PC for VR work. We cannot ask for high screen resolution and colors and still achieve semi realtime 
graphics. Objects are created in a .PLG file by specifying the polygons and vertices that make up the 
object. This is a very simple process and easy to pick up. An example is 


cube 8 6 
-50 -10 
-5 10-10 
5 10-10 
50 -10 
-50 -20 
-5 10-20 
5 10 -20 
50 -20 


140123 
241562 
345476 
440374 
544510 
647326 


The package includes two demo .PLG files, one is a box and other is a chess piece. The chess piece 
has 500 polygons. Speeds given to us by Mr. Stampe for this chess piece are 10 fps on a slow 386sx to 
26 fps on a 486/33. When the number of polygons decreases, the speeds increase: 


20 polygons = 75 fps 
100 polygons = 38 fps 
500 polygons = 16 fps 


As noted by Mr. Stampe, there are many enhancements coming to REND386. These include 
collision detection, faster screen writes, and 256 color support ( already have the hooks just nobody 
has done it ). To obtain REND386, FTP from sunee.waterloo.edu. There is also a floating-point 
version of REND386 that includes all of the source code. I highly recommend this package because of 
the speed. VR requires two images for stereo. This package can handle simple scenes in stereo. Ina 
future issue we hope to have a simple scene ready to be explored. 
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The second package is called 3D TRANSFORMS by Gus O'Donnell. This package is dated 1988. It's 
features include 


* ability to use any graphics screen mode 
* transformation matrices 
* object creation include light sources and color 


This is an old package as far as the date but does provide very nice features like x, y, and z rotation, 
scaling, and transformation of objects. The programmer creates the object in the actual C code instead 
of from a file. While I do this is the Virtual Hand code, it is much easier to put the object in a file like 
in the REND386 system. An object would be created like this 


FACE *facel; 
OBJECT *object]; 


facel = (FACE *)malloc(sizeof(FACE)), 
object] = (OBJECT *)malloc(sizeof(OBJECT)); 


new_face ( face] ), 
new_ obj ( objecti ); 


add_comer (x, y, z, facel ); 
add_comer (x, y, z, face] ); 


add_face ( object1, facel ), 


After the object has been created, we will want to define a transformation matrix. 


MATRIX m; 


identity ( m ); 
xrot ( PI/4, m ); 
trans ( 10.0, 20.0, 30.0, m ); 


xform ( *o, m ); 


The last instruction xform, applies the matrix to the object. The actual points in the object are 

translated by the matrix m. This differs from the Virtual Hand program in that in the VH, we do not 
apply to matrix to the object until time to draw and then the points in the object are not changed. 

| | The system appears to use floating point values for all calculations which makes the draws very 
slow. I would be hard pressed to use this graphic system in VR because of the speed. But for general 
3D graphics, the system does perform well and is able to manipulate the objects easily. 

3D transforms can be obtained from WU archives at 128.252.135.4 in the mirrors/msdos/turboc 
directory. There is a copyright. You cannot use the system for commercial work unless you send 
$25.00 to the author which then entitles you to the source code and commercial use. 


The third package is actually two different systems VOGLE and VOGL. These packages are being 
used and updated as early as March 4, 1992. VOGLE is a 3D graphics package for multiple platforms. 
There are drivers for IBMPC, Sun, Next, DEC, and others. The same is true for VOGL. The main 
difference in these packages is that VOGL is meant to be a duplication of the IRIS GL graphics system. 
Having used the IRIS GL package, very nice, I like this system. There are things that cannot be done 
on the PC version of GL like doublebuffers but it definitely is GL-like. 
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However, the system is somewhat slow. It may be difficulty to use this package for PC VR work 
simply because of the speed. I have not put the system to a big test yet but when executing the demo 
programs, speed was a problem. 

This is a true 3D package however, there 1s 


the direct ability to create objects, 

hidden line removal, 

ability to draw curves using cardinal, b-spline, and bezier matrices, 
further ability to create patches ( very nice for a PC ) 

resolution is 640 x 480 for VGA, can use EGA and hercules. 


I would recommend this package for 3D work. I will let you know about VR work. You can 
obtain these packages from-munnari.oz.au. They are called vogl.tar.Z and vogle.tar.Z. There is also a 
ray tracer called vort.tar:Z. There is no real copyright. The authors let you use the package for any 
work commercial or otherwise. All they ask for 1s beer. 


And last we need to mention the vectdemo from Ultraforce. This demo ts outstanding. Falk about 


320 x 200 x 256 graphics. Very Nice. But available?! Does not appear to be available, certainly no 
public domain or shareware. I would expect them to want a hefty price if the code was available. 


Next Issue 


In the next issue: 


Creating a Better Virtual Hand - We will look at the code from this issue and create a real wire- 
frame hand. 


A Virtual HandShake - Yes we have a virtual handshake available for the PC and the 
PowerGlove. I wrote this system for the PC using WATTCP/IP. A local and remote hand is placed on 
the users screens and they can shake! 


PC VR Board - [ have created a printer circuit board for the PC which allows the PowerGlove to 
be connected to a serial port using Menelli's circuit, the Sega glasses to be attached to a serial port, and 
a D to A converter from the parallel port ( sound ). I will talk about it. I am waiting for some 
copyright information concerning this so... 


Until next time.... 
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The Last Page 


Submissions 


If you would like to submit something for publization, a complaint, or a letter to the editor, you 
have two options: 


1) send a disk ( any size, density ) with an ascu file, WordPerfect file, Word for Windows file. 


Please include illustrations in either PCX or GIF format or in the document if using Word for 
Windows. The address is below. 


Please double-space: 


: Software Orders 


I will be happy to send you a disk of the software presented in this or any issue of PCVR. Send a 
letter with the issue number, size and density disk and $5.00 ( this covers the disk, mailer, and postage 
| ) to the address below. 


PCVR 


1706 Sherman Hill Rd. #A 
Laramie, Wyoming 82070 
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